#!perl

use 5.010;
use strict;
use warnings;

#use Test::More tests => 1;

use JasPerl::Util::Locale;
use JasPerl::JSTL::Fmt::NumberFormat;

my $locale = JasPerl::Util::Locale->get_default();

my $en = JasPerl::JSTL::Fmt::NumberFormat->new("#,##,#00,000.0##; (#0)", $locale);
say "en: 42=", $en->format(42);

my $de = JasPerl::JSTL::Fmt::NumberFormat->new("#,##,#00,000.0##; (#0)", "de_AT");
say "de: 42=", $de->format(42);
